10 ' Вычисление суммы ряда по условию
20 INPUT "Аргумент X (по модулю больше 1) = "; X
30 PRINT "Заданное значение Z (не больше "; 1/X; ") = ";
40 INPUT Z
50 K = 0: S = 0: C = 1		' Подготовка цикла
60 WHILE C > Z
70 S = S + C
80 K = K + 1
90 C = C / X
100 WEND
110 PRINT " Для аргумента X = "; X;
120 PRINT " члены ряда больше заданного значения "; Z
130 PRINT " для "; K; " слагаемых и их сумма равна "; S
140 PRINT " Последний член ряда при этом равен "; C * X
150 END